* lisp/term/haiku-win.el (x-begin-drag): Fix type code of B_MIME_TYPE.

diff --git a/lisp/term/haiku-win.el b/lisp/term/haiku-win.el
index b7f1991381bf0302b88fd7881f97fee73a544d30..9fa50d62e85033933a5f35ec858a62e11243cd20 100644 (file)
--- a/lisp/term/haiku-win.el
+++ b/lisp/term/haiku-win.el
@@ -200,7 +200,7 @@ take effect on menu items until the menu bar is updated again."
                 (unless (cadr field)
                   ;; Add B_MIME_TYPE to the message if the type was not
                   ;; previously defined.
-                  (push 1296649641 (alist-get (car selection-result) message
+                  (push 1296649541 (alist-get (car selection-result) message
                                               nil nil #'equal))))
               (push (cadr selection-result)
                     (cdr (alist-get (car selection-result) message